home *** CD-ROM | disk | FTP | other *** search
/ Adventures with Oslo: Tools & Gadgets / Adventures with Oslo - Tools and Gadgets.ISO / mac / Screen / Bit / 00021.ls < prev    next >
Encoding:
Text File  |  1994-09-23  |  676 b   |  27 lines
  1. on startMovie
  2.   put the mouseH && the mouseV into field "mouseLoc"
  3.   set the timeoutLength to 1 * 60 * 60
  4.   set the timeoutScript to "ScreenSaver"
  5. end
  6.  
  7. on exitFrame
  8.   global GHarddiskpath
  9.   if (the mouseH <> word 1 of field "mouseLoc") or (the mouseV <> word 2 of field "mouseLoc") then
  10.     set the timeoutScript to EMPTY
  11.     go("From picture", GHarddiskpath & "OsloMain")
  12.   else
  13.     if the frame = the lastFrame then
  14.       go(1)
  15.     else
  16.       continue()
  17.     end if
  18.   end if
  19. end
  20.  
  21. on screenSaver
  22.   global gCDRDrive
  23.   set whichMovie to getAt(["beach", "dolpush", "knock", "sunglass"], random(4))
  24.   set the timeoutScript to EMPTY
  25.   go(1, gCDRDrive & "screen:" & whichMovie)
  26. end
  27.